
option explicit


public sub VUI_DetalleValoresItem_OnEndEditEvent (byval sNameUI)
	
	' metodo customizado
	dim oUI
	dim oViewUI
	dim oItem
	dim oOte
		
    set oUI = oApp.oUIs.Item(sNameUI)
    set oViewUI = oUI.oViewUI
    set oItem = oViewUI.oObjectSelected

	oApp.oStorage.BeginTrans
	
    if not oItem is nothing then

		set oOte = oItem.oObjectProperty("id_detalle_valores")

		if not oOte is nothing then

	        ' Solo se permite modificar si la ote esta pendiente
	        if oOte.oSimpleProperty("id_estado").sValue = "1" then
	        
				' llamo al metodo padre
				call base_VUI_OnEndEditEvent(sNameUI)
	        	
				' Copio el monto del cheque
				oItem.oSimpleProperty("monto_referencia").fValue = oItem.oSimpleProperty("monto").fValue * oItem.oObjectProperty("id_moneda").oSimpleProperty("factor").fValue	
				oItem.save
	
				oApp.oStorage.CommitTrans
							
	        else
	            oUI.oViewUI.ShowTip Q_ICON_BAD, "No se puede modificar,, El movimiento [" & oItem.oSimpleProperty("numero").sValue & "] debe estar en estado pendiente."
				oApp.oStorage.Rollback
	        end if
	
			oUI.oViewUI.RefreshData

		else
			oApp.oStorage.Rollback		
		end if
	else		
		oApp.oStorage.Rollback
    end if
end sub
